# ======================================================================
#
# Copyright (C) ADN
# ADN::SERVER::Constant.pm
# Description:
#  - Juste des Constantes 
#  - Just constants
#
# ======================================================================

package ADN::SERVER::Constant;

use strict;
use base 'Exporter';

# #######################
# CONSTANT PARAMETRE
# #######################
use constant BIGPARAM => '%!%*%~%';

# #######################
# CONSTANT CONSTANT
# #######################
use constant C_FALSE => '-1';
use constant C_TRUE => '0';

# #######################
# CONSTANT LOG
# #######################
use constant ALL => '5';
use constant XML => '2';
use constant MIX => '3';
use constant LOG => '1';
use constant TERM => '4';
use constant HIGH => '3';
use constant LOW => '1';
use constant MED => '2';

# #######################
# THE EXPORT OF CONSTANT
# #######################
our @EXPORT_OK =( 'BIGPARAM',
		              'C_TRUE',
		              'C_FALSE',
		              'ALL',
		              'XML',
		              'MIX',
		              'TERM',
		              'HIGH',
		              'LOW',
		              'MED',
		              'LOG' );

our %EXPORT_TAGS = ( param => [ 'BIGPARAM' ],
		                 constant => [ 'C_TRUE', 'C_FALSE' ],
		                 log => [ 'ALL', 'XML', 'MIX', 'TERM', 'HIGH', 'LOW', 'MED', 'LOG' ] );

# #######################
# DESTROY OBJECT
# #######################
sub DESTROY {
    my $self = shift;
    return;
}
1;
__END__
